﻿Imports CapaDatos
Imports CapaEntidad

Public Class NegocioClientes
    Dim _datosCliente As New DatosCliente

    Public Function InsertarCliente(eCliente As Cliente) As Boolean
        Return _datosCliente.InsertarCliente(eCliente)
    End Function

    Public Function ActualizarCliente(eCliente As Cliente) As Boolean
        Return _datosCliente.ActualizarCliente(eCliente)
    End Function

    Public Function EliminarCliente(eCliente As Cliente) As Boolean
        Return _datosCliente.EliminarCliente(eCliente)
    End Function

    Public Function ListarClientes(parametro As String) As DataTable
        Return _datosCliente.ListarClientes(parametro)
    End Function

    Public Function ConsultarCliente(codigo As String) As Cliente
        Return _datosCliente.ConsultarCliente(codigo)
    End Function

    Public Function UltimoID() As String
        Return _datosCliente.UltimoID()
    End Function
End Class
